5 PRINT"[147]":POKE53280,0:POKE53281,0
6 IFZZ=0THENZZ=1:LOAD"JOEPLAY",8,1
7 IFZZ=1THENZZ=2:LOAD"DRAG.MUSIC",8,1
8 POKE56325,60:MU=1:GOSUB10000
10 REM DUNGEON OF THE DRAGON
12 REM CONVERTED TO C-64 BY ALAN
20 Q$=CHR$(34)
30 PRINT"":GOTO 110
40 PRINT "YOU FEEL LIKE IT. [217]OU TRAVEL THROUGH"
42 PRINT "TIME & SPACE, WRITING ABOUT THE THINGS"
43 PRINT "YOU SEE. [193]LL OF THE BOOK CRITICS"
50 PRINT "CRITICIZE YOUR BOOKS."
51 PRINT"  [212]HEY ALL SAY THAT YOU ARE TOO UN-"
52 PRINT"REALISTIC. [207]H, WELL, YOU CAN'T WIN AT"
53 PRINT"[197][214][197][210][217][212][200][201][206][199]":PRINT"  [217]OU [196][201][196] WIN AT THIS, HOWEVER, AND GOT";
54 PRINTSE;"POINTS OUT OF 100 POSSIBLE. [206]OT BAD!"
55 A$=""
60 PRINT"[208]LAY AGAIN ([217]/[206])?";:POKE198,0:WAIT198,1
65 A$=""
66 GETA$
70 IFA$="Y"THEN 110
80 IFA$="N"THEN 5400
90 GOTO 65
100 REM
110 REM 
120 REM 
130 REM 
140 REM 
150 REM FOR JEAN
160 REM 
170 REM 
180 REM 
190 REM ***********************
200 REM *DUNGEON OF THE DRAGON*
210 REM *    BY:     *
220 REM *    STEVE  SHELTON   *
230 REM  *********************** 
240 REM 
250 REM  |   -----------
260 REM  |   !     !   |
270 REM  |   !     !   |
280 REM  |   !     !   |
290 REM  -----------   |
300 REM      !     !
310 REM      !     !
320 REM      !     !
330 REM      -------
340 REM 
350 REM 
360 REM  MY TRADE MARK
370 REM 
380 REM  GAME (C) MAY-JUNE, 1985
390 REM 
400 REM  MY ADDRESS:
410 REM  BOX 177
420 REM  DIGHTON, KS. 67839
430 REM  PHONE:(316)-397-5523
440 REM 
490 GOTO 980
500 PRINT"[147]"
510 LC = 1
520 GOTO 4610
530 UD = 0
535 GOSUB10000
540 PRINT
541 C$="":INPUT "===>";C$
542 C9$=C$
543 IFC$=""THENPRINT"[145]";:GOTO541
545 C$=LEFT$(C$,4)
550 CM = 0: PRINT 
551 IF C$="SILE"ORC$="OFF"THENC$="HUSH"
552 IFC$="HUSH"ORC$="QUIE"THENMU=0:GOSUB11000:PRINT"[204]ET THERE BE SILENCE!"
554 IFC$="HUSH"ORC$="QUIE"THENPRINT"[194]OY, YOU DON'T MESS AROUND!!":GOTO530
555 IFC$="PLAY"THENC$="MUSI"
556 IFC$="MUSI"THENMU=1:GOSUB10000:PRINT"[204]ET ME EN-TER-TAIN YOU...":GOTO540
560 IF  LEFT$(C$,3)= "USE" THEN CM = 2
570 IF  C$ = "SCOR" THEN CM = 11
580 IF  C$ = "L" THEN CM = 7
590 IF  C$ = "S" OR C$="SOUT"THENCM = 3
610 IF  C$ = "N" OR C$="NORT"THENCM = 4
620 IF  C$ = "E" OR C$="EAST"THENCM = 5
630 IF  C$ = "W" OR C$="WEST"THENCM = 6
640 IF  C$ = "LOOK" THEN CM = 7
650 IF LEFT$(C$,3)= "GET" THEN CM = 9
660 IF  C$ = "QUIT" THEN  GOSUB 5320
670 IF  C9$ = "DROP DEAD" THEN  PRINT "[207]KAY.": GOTO 5090
680 IF  C$ = "BULL" THEN  PRINT "[205]OOO...": GOTO 530
690 IF CM <  > 2 THEN  GOTO 890
695 GOSUB4810
700 PRINT :U$="":INPUT "[213]SE WHAT ITEM ";U$
705 U9$=U$
710 UD = 0: PRINT:U$=LEFT$(U$,5)
720 IF  U$ = "BREAT" ORU$="FRESH" THEN UD = 1
730 IF U$="MOUTH"ORU$="WASH"THENUD=2
740 IFLEFT$(U$,3)="GAS"ORU$="MASK"THENUD=3
743 IF UD=3 AND GA=3 THEN PRINT"[217]OU'RE ALREADY WEARING THAT!":UD=-1
745 IFUD=3THENPRINT"[200]EY, YOU LOOK VERY CUTE!!":GA=3:CM=-2:PRINT:RETURN
750 IFU$="SWORD"THENUD=4
760 IFU$="LASER"ORU$="GUN"THENUD=5
770 IFU$="FLASH"ORU$= "LIGHT" THEN UD = 6
780 IFU$="PAPER"ORU$="PIECE"THENUD=7
782 IFU$="CLUE"ORU$="HINT"THEN UD = 7
790 IF U$= "TORCH" ORU$= "FIRE" THEN UD = 8
800 IF U$= "CORK" THEN UD = 9
810 IFLEFT$(U9$,13)="DRAGON BOTTLE"THENUD=10
811 IFLEFT$(U9$,24)="ESSENCE 'D DRAGON BREATH"THENUD=10
812 IFLEFT$ (U9$,20) = "DRAGON BREATH BOTTLE" THEN UD = 10
813 IFLEFT$(U9$,13)="DRAGON BREATH"THENUD=10
820 IF UD = 0 THEN PRINT "[215]HAT?": GOTO 530
830 GOTO 4480
840 IFUD=2THENRI=2:IFOL<>1THENPRINT"[201]T HAS THAT MINTY, NOT MEDICINY TASTE."
841 IFUD=2 ANDOL<>1THENPRINT"[196]ID YOU HAVE BAD BREATH?":CM=-1
850 IFUD=1THENPS=2:IFOL<>1THENPRINT"[201]T TASTES MEDICINY, BUT IT WORKS."
851 IFUD=1 AND OL<>1 THENPRINT"[196]ID YOU HAVE BAD BREATH?":CM=-1
860 IF UD = 7 THEN 5300
870 IF UD = 10 THEN PRINT "[212]HE NOXIOUS FUMES OVERTAKE YOU AND YOU"
872 IFUD=10THEN PRINT "CHOKE TO DEATH ON THEM.": GOTO 5030
880 AF=0:IF DB > 0 AND UD = 9 THENAF=1
881 IFAF=1THEN PRINT "[217]OU UNCORK THE DRAGON BOTTLE AND THE"
882 IFAF=1THEN PRINT "FUMES KILL YOU.": GOTO 5030
890 IF C$= "I"ORLEFT$(C$,3)="INV"THEN GOSUB4810:GOTO540
900 IF C$ = "ANSW" THEN CM = 8
910 IF C$ = "" THEN GOTO 540
920 IFC$="HELP"THENPRINT "[212]HE COMMANDS WILL HAVE TO DO!": GOTO 4940
930 IF C$ = "RAIS" THEN CM = 10: GOTO 5100
940 IF LEFT$ (C$,3) = "COM" THEN GOTO 4940
950 IF CM = 0 AND SU = 3 THEN GOTO 4940
960 IF CM = 0 THEN PRINT "[211]AY [215][200][193][212]?!?!?!?":SU = SU + 1: GOTO 530
970 RETURN 
980 PRINT"[147]":INPUT "[215]OULD YOU LIKE INSTRUCTIONS";A$
990 IF LEFT$ (A$,1) = "Y" THEN 5120
1000 IF LEFT$ (A$,1) = "N" THEN 1020
1010 GOTO 980
1020 REM * LOCATION #1
1030 MS = 1:HO = 1
1040 PRINT "[217]OU ARE AT THE ENTRANCE OF THE DUNGEON.
1042 [153]"RIGHT$T IS HUMID AND MUCKY SMELLING IN HERE."
1050 [139] AZ [177] 0 [167] 1090
1060 [153] "LEFT$OW YOU GOT HERE, YOU DO NOT KNOW. (null)NE"
1062 [153] "MINUTE YOU'RE STANDING IN A CAVE NEAR"
1064 [153] "THE TIP OF THE PEEKERMUDA (null)RIANGLE, AND"
1066 [153] "SUDDENLY YOU'RE HERE. ATNS FAR AS YOU CAN"
1070 [153] "TELL, THERE IS NO EXIT. (null)OU HAVE,"
1072 [153] "HOWEVER, SEEN A STRANGE LOOKING "
1074 [153] "CREATURE WITH FOUR HEADS GET KILLED BY"
1076 [153] "A MAN IN VERY STRANGE CLOTHES, BUT NOT"
1080 [153] "BEFORE HE HIMSELF WAS MORTALLY WOUNDED."
1082 [153] "(null)OU NOW HAVE THE MAN'S SWORD, AND A LIT"
1084 [153] "FLASHLIGHT.":AZ [178] AZ [170] 1
1090 [153] "(null)HERE IS A DEAD CREATURE HERE, ALONG ": [153] "WITH A DEAD MAN."
1100 [153] : [153] "(null)HERE IS AN EXIT TO THE EAST."
1110 [141] 530
1120 [139] CM [178] 2 [167] [153] "(null)O EFFECT."
1130 [139]CM[178]3[176]CM[178]4[176]CM[178]6[167][153]"(null)OU RAN INTO THE WALL! PEEKOY, DOES YOUR"
1131 [139]CM[178]3[176]CM[178]4[176]CM[178]6[167][153]"NOSE EVER HURT!!"
1140 [139] CM [178] 5 [167] LC [178] 2: [137] 520
1150 [139] CM [178] 7 [167] [137] 1020
1160 [139] CM [178] 11 [167] [153] "(null)LEN(null)(null)VAL: ";SE;" (null)(null)(null) (null)ASC 100 (null)(null)(null)(null)RIGHT$PEEK(null)VAL."
1170 [139] CM [178] 9 [167] [153] "(null)OTHING HERE."
1180 [139] CM [178] 10 [167] [153] "PEEKIG DEAL. (null)OU SHOULD SEE HOW EASY A "
1182 [139]CM[178]10[167][153] "DRAGON COULD DO THAT!!"
1190 [137] 1110
1200 [143] * LOCATION #2
1210 [153] "RIGHT$T'S AN EAST-WEST HALLWAY. (null)HE GROUND"
1212 [153] "IS SLIGHTLY DUSTY. (null)HERE IS A FAINT     LIGHT TO THE EAST."
1230 AF[178]0:[139] CM [178] 10 [167]AF[178]1:[153]"(null)EAH!! (null)HE"
1232 [139]AF[178]1[167][153]"CROWD CHEERS! LEFT$E ACTUALLY    GOT IT ABOVE HIS HEAD!!"
1240 [141] 530
1250 [139] CM [178] 2 [167]  [153] "(null)O EFFECT."
1260 [139] CM [178] 3 [167]  [153] "STR$O YOU SEE A DOOR THERE? (null)F COURSE NOT!"
1262 [139]CM[178]3[167] [153] "(null)OW, BOYS AND GIRLS, WHAT WE HAVE HERE"
1264 [139]CM[178]3[167] [153] "IS A GUY WITH A FLAT NOSE!"
1270 [139] CM [178] 4 [167]  [153] "(null)OU CANNOT GO THAT DIRECTION."
1280 [139] CM [178] 5 [167] LC [178] 3: [137] 4610
1290 [139] CM [178] 6 [167] LC [178] 1: [137] 520
1300 [139] CM [178] 11 [167]  [153] "(null)LEN(null)(null)VAL: ";SE;" (null)(null)(null) (null)ASC 100 (null)(null)(null)(null)RIGHT$PEEK(null)VAL."
1310 [139] CM [178] 5 [167] LC [178] 11: [137] 4610
1320 [139] CM [178] 5 [176] CM [178] 3 [167] 520
1330 [139] CM [178] 7 [167]  [137] 1200
1340 [139] CM [178] 9 [167]  [153] "(null)HERE'S NOTHING HERE! (null)OU COULDN'T "
1342 [139]CM[178]9[167] [153] "EVEN GRASP FOR STRAWS IN THIS ROOM!"
1350 [137] 1240
1360 [139] LC [178] 20 [167]  [137] 4450
1370 [143] * LOCATION #3
1380 [153] "(null)HIS ROOM IS STRANGELY SHAPED, AS IF IT"
1382 [153] "WAS A CARVED-OUT CAVE. (null)HE WALLS GLOW"
1384 [153] "WITH A SOFT, RED LIGHT. (null)HERE IS A"
1386 [153] "TAPESTRY WITH A LENHINESE STR$RAGON ON IT ON"
1390 [153] "ONE WALL. (null)HERE ARE EXITS TO THE (null)OUTH, VALAST AND (null)EST."
1400 [139] RI [179] 1 [167]  [153] "(null)HERE IS A JAR OF MOUTHWASH BY THE      TAPESTRY."
1420 [141] 530
1430 [139] CM [178] 2 [167]  [153] "(null)O EFFECT."
1440 [139] CM [178] 3 [167] LC [178] 4: [137] 520
1450 [139] CM [178] 5 [167] LC [178] 7: [137] 4610
1460 [139] CM [178] 4 [167]  [153] "(null)OU CAN'T GO THAT DIRECTION."
1470 [139] CM [178] 6 [167] LC [178] 2: [137] 4610
1480 [139] CM [178] 7 [167]  [137] 1370
1490 [139] CM [178] 9 [175] RI [179] 1 [167]  [153] "(null)OUTHWASH TAKEN.":RI [178] 1:[137]1510
1500 [139] CM [178] 9 [167]  [153] "(null)OTHIN' HERE! (null)OTHIN' A-TALL!"
1510 [139] CM [178] 11 [167]  [153] "(null)LEN(null)(null)VAL: ";SC;" (null)(null)(null) (null)ASC 100 (null)(null)(null)(null)RIGHT$PEEK(null)VAL."
1520 [137] 1420
1530 [143] *LOCATION #4
1540 [153] "(null)OU ARE AT A FOUR-WAY INTERSECTION."
1560 [141] 530
1570 [139] CM [178] 2 [167]  [153] "(null)O EFFECT."
1580 [139] CM [178] 9 [167]  [153] "(null)OTHING HERE."
1590 [139] CM [178] 3 [167] LC [178] 5: [137] 4610
1600 [139] CM [178] 4 [167] LC [178] 3: [137] 4610
1610 [139] CM [178] 6 [167] LC [178] 8: [137] 4610
1620 [139] CM [178] 5 [167] LC [178] 10: [137] 4610
1630 [139] CM [178] 11 [167]  [153] "(null)LEN(null)(null)VAL: ";SE;" (null)(null)(null) (null)ASC 100 (null)(null)(null)(null)RIGHT$PEEK(null)VAL."
1640 [137] 1560
1650 [143] *LOCATION #5
1660 [139] CW [179] 1 [167]  [153] "(null)HIS ROOM APPEARS TO GO 30 FEET TO A"
1662 [139]CW[179]1[167][153]"SMALL DOOR ON THE SOUTH SIDE."
1670 [139] CW [177] 0 [167]  [153] "(null)HIS ROOM EXTENDS 30 FEET IN A "
1672 [139]CW[177]0[167][153] "SOUTHERLY DIRECTION. (null)HERE ARE "
1674 [139]CW[177]0[167][153] "FRAGMENTS OF A SHATTERED PLASTIC WALL   ON THE FLOOR."
1680 [153] "(null)HERE ARE DOORS TO THE SOUTH AND NORTH."
1700 AF[178]0:[139]SG$[178]"SIGNO"[167]AF[178]1:[153]"(null)HERE IS A SIGN ON THE WALL NEAR THE"
1702 [139]AF[178]1[167][153] "PLASTIC OBSTACLE. RIGHT$T READS:"
1703 [139]AF[178]1[167][153]"SYSSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
1704 [139]AF[178]1[167][153]"SPC((null)OU HAVE SEEN THE CLUES,SPC("
1706 [139]AF[178]1[167][153]"SPC(ATN CHICKEN'S A BIRD,     SPC("
1708 [139]AF[178]1[167][153]"SPC((null)YPE ATN(null)(null)(null)VAL(null), AND GIVE MESPC("
1709 [139]AF[178]1[167][153]"SPC(THE PASSWORD!           SPC("
1710 [139]AF[178]1[167][153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
1711 [139]AF[178]1[167][153]"(null)BVIOUSLY, YOU ARE SUPPOSED TO TYPE IN"
1712 [139]AF[178]1[167][153] "A PASSWORD AFTER TYPING 'ANSWER'. ATNLSO,"
1714 [139]AF[178]1[167][153] "THE CLUES TO IT MUST BE IN THE DUNGEON!"
1720 [141] 530
1730 [139] CM [178] 3 [175] CW [177] 0 [167] LC [178] 9: [137] 520
1740 [139]CM[178]3[167][153]"(null)(null)LENLEFT$! (null)OW YOU KNOW HOW A BUG FEELS WHEN"
1742 [139]CM[178]3[167][153] "IT BANGS AGAINST A WINDOW. (null)HERE'S SOME"
1744 [139]CM[178]3[167][153] "SORT OF CLEAR, PLASTIC WALL IN YOUR WAY"
1746 [139]CM[178]3[167][153] "AND TO THE SIDE YOU SEE A SIGN."
1750 [139] CM [178] 2 [167]  [153] "(null)O EFFECT,EH?"
1760 [139] CM [178] 6 [167]  [153] "(null)OU CAN'T GO THAT WAY!"
1770 [139] CM [178] 4 [167] LC [178] 4: [137] 4610
1780 [139]CM[178]5[167][153]"STR$ID RIGHT$ SAY THERE ARE DOORS GOING EAST?"
1782 [139]CM[178]5[167][153]"(null)(null)! (null)O DON'T TRY AND GO THAT WAY!!!"
1790 [139] CM [178] 9 [167]  [153] "(null)OTHING HERE."
1800 [139] CM [178] 7 [167]  [137] 1650
1810 AF[178]0:[139]CM[178]8[175]CW[177]0[167]AF[178]1
1812 [139]AF[178]1[167][153] "(null)HERE IS NO WALL HERE! RIGHT$T WON'T DO YOU"
1814 [139]AF[178]1[167][153] "ANY GOOD TO ANSWER IT, BUT IF THAT'S"
1816 [139]AF[178]1[167][153] "THE WAY YOU GET YOUR THRILLS, OKAY!!"
1818 [139]AF[178]1[167][129]T[178]1[164]2135:[130]:[137] 5210
1820 [139] CM [178] 8 [175] CW [179] 1 [167] 5210
1830 [139] CM [178] 3 [167] SG$ [178] "SIGNO"
1840 [139] CM [178] 11 [167]  [153] "(null)LEN(null)(null)VAL: ";SE;" (null)(null)(null) (null)ASC 100 (null)(null)(null)(null)RIGHT$PEEK(null)VAL."
1850 [137] 1650
1860 [143] *LOCATION #7
1870 [153] "(null)OU'RE AT A (null)OUTH, VALAST, AND (null)EST       INTERSECTION."
1880 [139] D(1) [179] 1 [167]  [141] 5350
1890 [139]D(1)[177]0[167][153]"(null)HERE IS A FAINT SMELL OF SMOKE IN THIS":[153] "ROOM."
1900 D(1) [178] D(1) [170] 1
1910 [141] 530
1920 [139] CM [178] 2 [175] UD [179]  [177] 8 [167]  [153] "(null)O EFFECT."
1930 [139] CM [178] 2 [175] UD [178] 8 [167]  [153] "(null)O EFFECT."
1940 [139] CM [178] 4 [167]  [153] "(null)HERE IS NO DOOR THERE!"
1950 [139] CM [178] 6 [167] LC [178] 3: [137] 520
1960 [139] CM [178] 3 [167] LC [178] 10: [137] 520
1970 [139] CM [178] 5 [167] LC [178] 11: [137] 520
1980 [139] CM [178] 7 [167]  [137] 1860
1990 [139] CM [178] 9 [167]  [153] "(null)OTHING HERE."
2000 [139] CM [178] 11 [167]  [153] "(null)LEN(null)(null)VAL: ";SE;" (null)(null)(null) (null)ASC 100 (null)(null)(null)(null)RIGHT$PEEK(null)VAL."
2010 [137] 1910
2020 [143] * LOCATION #8
2030 [153] "(null)HIS ROOM IS HARDLY MORE THAN A WIDE "
2032 [153] "SPOT IN THE PASSAGEWAY."
2040 [139]PS[179]1[167][153]"(null)HERE IS A JAR OF BREATH FRESHENER IN   THE CORNER."
2050 [153] "(null)HERE ARE EXITS TO THE EAST AND WEST."
2060 [141] 530
2070 [139] CM [178] 7 [167] 2020
2080 [143]    IFCM=2AND(UD=4ORUD=5)THENPRINT"(null)OU THROW YOUR WEAPON AT THE GROUND."
2082 [143]  IFCM=2THENPRINT"(null)HE GROUND IS MORTALLY WOUNDED."
2090 [143]  IF CM = 2 AND UD = 6 THEN  PRINT "(null)OU HAVE KILLED THE GROUND."
2100 [139]CM[178]3[176]CM[178]4[167][153]"(null)(null)LENLEFT$! (null)HOSE WALLS HURT!!  (null)OU DEFINITELY";
2102 [139]CM[178]3[176]CM[178]4[167][153]"DON'T WANT TO GO THAT DIRECTION."
2110 [139] CM [178] 5 [167] LC [178] 4: [137] 520
2120 [139] CM [178] 6 [167] LC [178] 12: [137] 4610
2130 [139] CM [178] 7 [167]  [137] 2020
2140 [139] CM [178] 9 [175] PS [177] 0 [167]  [153] "(null)HIS ROOM IS EMPTY."
2150 [139] PS [179] 1 [175] CM[178]9 [167]  [153] "PEEKREATH FRESHENER TAKEN.":PS [178] 1
2160 [139] CM [178] 11 [167]  [153] "(null)LEN(null)(null)VAL: ";SE;" (null)(null)(null) (null)ASC 100 (null)(null)(null)(null)RIGHT$PEEK(null)VAL."
2170 [137] 2060
2180 [139]CB[179]1[167][153]"(null)HE WALLS IN THIS ROOM ARE GLOWING"
2182 [139]CB[179]1[167][153] "FIERCELY.(null)HERE IS A HORRIBLE, TOXIC"
2184 [139]CB[179]1[167][153] "SMELL IN THIS ROOM. (null)HERE IS A DRAGON-"
2186 [139]CB[179]1[167][153] "SHAPED BOTTLE IN THE MIDDLE OF THIS"
2188 [139]CB[179]1[167][153] "ROOM, MADE WITH THE MOUTH AS THE OPEN"
2190 [139]CB[179]1[167][153]"END. (null)HE SMELL IS DEFINITELY COMING     FROM IT."
2195 [139] CB[179]1[175] GA[178]3 [167] [153]"(null)H, BY THE WAY, THE GAS MASK YOU'RE"
2196 [139] CB[179]1[175] GA[178]3 [167] [153]"WEARING DOESN'T SEEM TO SHIELD YOU FROM"
2197 [139] CB[179]1[175] GA[178]3 [167] [153]"THE AWFUL ODOR COMING FROM THE BOTTLE."
2200 AF[178]0:[139]CB[177]0[175]DB[179]1[167]AF[178]1
2202 [139]AF[178]1[167][153]"(null)HERE IS A CORKED DRAGON BOTTLE IN THE"
2203 [139]AF[178]1[167][153] "MIDDLE OF THIS ROOM. (null)HE WALLS ARE"
2204 [139]AF[178]1[167][153] "SOFTLY GLOWING AND THERE IS A TRACE"
2206 [139]AF[178]1[167][153] "OF SOME BAD ODOR HERE."
2210 [139]DB[177]0[167][153]"(null)HIS ROOM IS EMPTY. (null)HERE IS A SLIGHT"
2212 [139]DB[177]0[167][153] "ODOR IN HERE, AND THE WALLS ARE GIVING"
2214 [139]DB[177]0[167][153] "OFF A VERY DIM LIGHT."
2220 [153]:[153] "(null)HERE IS AN EXIT TO THE NORTH.": [141] 530
2230 [139]CM[178]8[167][153]"LEFT$OW ARE YOU GOING TO ANSWER A QUESTION"
2232 [139]CM[178]8[167][153]"WHEN NONE WAS ASKED? MOST BIZARRE!!!!"
2234 [139]CM[178]8[167][153]"(AND ILLOGICAL!!!)"
2240 [139]CM[178]9[175]CB[179]1[167][153]"(null)HE SMELL OVERPOWERS YOU.":[137]5030
2241 [139]CM[178][171]2[167][137]2195
2245 [139]CB[179]1[175] CM[178][171]1[167][153]"(null)ELL, IT SMELLS GOOD NOW, BUT YOU WON'T"
2246 [139]CB[179]1[175] CM[178][171]1[167][153]"BE ABLE TO STAND MUCH MORE OF THAT"
2247 [139]CB[179]1[175] CM[178][171]1[167][153]"TERRIBLE ODOR COMING FROM THE BOTTLE.":[137] 2220
2250 [139]CB[179]1[175]CM[179][177]2[167][153]"(null)HE SMELL OVERPOWERED YOU!":[137]5030
2260 [139]CB[179]1[175]CM[178]2[175]UD[178]9[167][153]"(null)OU CORKED THE BOTTLE.":CB[178]1:SE[178]SE[170]20:CK[178]2
2270 [139] CB [178] 0 [167]  [153] "(null)OU DIED OF ODOR INHALATION.":[137] 5030
2280 [139] DB [177] 0 [175] CM [178] 9 [167]  [153] "(null)OTHING HERE, DUDE!"
2290 [139]DB[179]1 [175] CM [178] 9 [175] CB [177] 0 [167]  [153] "STR$RAGON BOTTLE TAKEN.":DB [178] 1
2300 [139] CM [178] 11 [167]  [153] "(null)LEN(null)(null)VAL: ";SE;" (null)(null)(null) (null)ASC 100 (null)(null)(null)(null)RIGHT$PEEK(null)VAL."
2310 [139] DB [178] 1 [167] CK [178] 1
2320 [139] CM [178] 4 [167] LC [178] 18: [137] 520
2330 AF[178]0:[139]CM[178]5[176]CM[178]6[176]CM[178]3[167]AF[178]1
2332 [139]AF[178]1[167][153]"(null)HE GLOWING WALL YOU JUST RAN INTO HAD"
2334 [139]AF[178]1[167][153] "A JAGGED PIECE STICKING OUT. (null)OU"
2336 [139]AF[178]1[167][153] "RAN INTO IT AND KILLED YOURSELF.": [137] 5030
2340 [137] 2180
2350 [143] * LOCATION #9
2355 [139]DD[177][178]1[167]2440
2356 OL[178]1
2360 [153]"ATNT LAST! (null)HE TIME-TRANSPORT CHAMBER!"
2362 [153] "(null)HERE IS ONE SMALL PROBLEM. (null)ELL, TWO."
2364 [153] "RIGHT$T SEEMS THAT THE (null)IZARD OF TIME IS"
2366 [153] "HERE, ALONG WITH HIS BUDDY, AN UGLY "
2370 [153] "GREEN SCALY CREATURE. (null)HIS IS OBVIOUSLY"
2372 [153] "THE BAD-BREATHED DRAGON. (null)HE (null)IZARD"
2374 [153] "TURNS TO YOU AND SAYS... "
2375 [151]198,0:[146]198,1:[161]Z$
2380 [153] "  'RIGHT$'M NOT REALLY A (null)IZARD. RIGHT$'M AN "
2382 [153] "EARTH-MAN, FROM THE YEAR 1972. RIGHT$ SAW"
2384 [153] "A MAN APPEAR OUT OF NO-WHERE AND"
2386 [153]"GOT MY RIFLE. RIGHT$ THREATENED TO USE IT ON HIM";
2390 [153]" IF HE DIDN'T TAKE ME UP TO HIS TIME.":[151]198,0:[146]198,1:[161]Z$
2392 [153] "  LEFT$E DID, AND RIGHT$ OVERPOWERED HIM. RIGHT$ THEN"
2394 [153] "LEARNED HOW TO RUN THE TIME-TRANSPORTER"
2396 [153] "AND THEN ALL THAT WAS LEFT WAS TO COME"
2398 [153] "BACK TO THIS TIME AND SET UP MY"
2400 [153]"OWN KINGDOM.  RIGHT$ HAVE GONE FAR INTO THE "
2402 [153] "FUTURE AND GOTTEN CREATURES FROM OTHER"
2406 [153] "PLANETS WHO VISITED VALARTH IN THE YEARS"
2408 [153] "RANGING FROM 2076 TO 5433. (null)OST ARE"
2409 [153] "UNINTELLIGIENT, OR AS SMART AS DOGS. RIGHT$"
2410 [153]"USE THEM AS PETS. RIGHT$ TAKE THEM WITH ME "
2412 [153] "ON MY JOURNEYS, THUS CAME THE LEGEND"
2414 [153] "OF DRAGONS. ASCASCINATING, DON'T YOU "
2416 [153] "THINK SO?'"
2420 [153] "  '(null)ES,' YOU ANSWER,'BUT WHAT ABOUT THE"
2422 [153]"DWARF RIGHT$ MET?'":[151]198,0:[146]198,1:[161]Z$
2424 [153] "  'LEFT$E WAS MERELY AN INHABITANT OF THE"
2426 [153] "PLANET STR$WARFY. PEEKUT ENOUGH OF THIS IDLE"
2428 [153] "CHAT!' (null)AUGHING MENACINGLY, HE TURNS TO"
2430 [153] "THE 'DRAGON'. '(null)IC EM, ASCIDO!!'"
2432 [153] "(null)HE DRAGON IS NOW CHARGING TOWARD YOU."
2434 [153] "(null)OU'D BETTER STOP HIS CHARGE (AND DON'T"
2436 [153] "TRY AND TAKE AWAY HIS CREDIT CARD!)."
2438 [153] "LEFT$IS OFFENSIVE BREATH SEEMS TO BE HIS "
2439 [153] "ONLY WEAPON."
2440 [139]DD[178]1[167][153]"(null)HE DRAGON IS DEAD, AND THE (null)IZARD HAS"
2442 [139]DD[178]1[167][153] "SURRENDERED. (null)OUR FATE LIES IN YOUR OWN"
2444 [139]DD[178]1[167][153]"HANDS, NOW.":SE[178]SE[170]50
2450 [153] "(null)HERE ARE EXITS IN ALL DIRECTIONS."
2460 [141] 530
2470 [139] CM [178] 11 [167]  [153] "(null)LEN(null)(null)VAL: ";SE;" (null)(null)(null) (null)ASC 100 (null)(null)(null)(null)RIGHT$PEEK(null)VAL.":[137]2460
2480 [139] DD [178] 1 [167] 2740
2490 [143]   IFCM<>2THEN2770
2500 AF[178]0:[139]UD[178]1[176]UD[178]2[167]AF[178]1
2502 [139]AF[178]1[167][153] "(null)OU FLING IT AT THE DRAGON & HE DROPS"
2504 [139]AF[178]1[167][153] "TO THE FLOOR DEAD. (null)HE PERFUMED LIQUID"
2506 [139]AF[178]1[167][153] "HAS DRIVEN HIS OWN BREATH BACK AT HIM-"
2508 [139]AF[178]1[167][153] "RIGHT INTO HIS OWN NOSE.":DD[178]1:[137] 2350
2510 [139]GA[178]3[175]DF[179]1[167][153]"(null)OUR GAS MASK HAS TEMPORARILY HELD BACK"
2512 [139]GA[178]3[175]DF[179]1[167][153] "THE TOXIC BREATH, BUT ALREADY IT IS"
2514 [139]GA[178]3[175]DF[179]1[167][153] "STARTING TO FAIL YOU. (null)OU ARE STARTING"
2516 [139]GA[178]3[175]DF[179]1[167][153] "TO SMELL THE ODOR FAINTLY.":DF[178]1:[137]2460
2520 [139]GA[178]3[175]DF[178]1[167][153]"(null)LEFT$VAL CHR$ATN(null) (null)ATN(null)(null) LEFT$ATN(null) STR$VAL(null)VAL(null)RIGHT$(null)(null)ATN(null)VALSTR$!!! (null)(null)(null)'STR$"
2522 [139]GA[178]3[175]DF[178]1[167][153] "PEEKVAL(null)(null)VAL(null) (null)(null)(null)(null) ASCATN(null)(null)!!!":DF[178]2:[137] 2460
2530 [139] CM [178] 4 [167] LC [178] 3: [137] 4610
2540 [139]GA[178]3[167][153]"(null)OO BAD! (null)OU HAD THREE TRIES TO STOP"
2542 [139]GA[178]3[167][153]"HIM, BUT YOU FAILED."
2550 [153]"(null)HE ODOR HAS PENETRATED TO YOUR NOSE."
2552 [153] "(null)OU HAVE ONE VERY BRIEF MOMENT OF AGONY":[153]"AND THEN:"
2560 [137] 5030
2570 [139]HO[177]0[175]CM[178]9[167][153]"(null)OTHING HERE.
2580 IFCM=9ANDHO=0THENPRINT"[212]RUMPET TAKEN.":HO=1
2590 GOTO 2460
2600 REM * LOCATION #10
2610 PRINT "[212]HIS ROOM IS A THREE-WAY INTERSECTION."
2620 PRINT "[212]HERE ARE EXITS IN ALL DIRECTIONS BUT ": PRINT "SOUTH."
2630 GOSUB 530
2640 IF CM = 5 THEN LC = 6: GOTO 520
2650 IF CM = 4 THEN LC = 7: GOTO 4610
2660 IF CM = 3 THEN  PRINT "[206]O CAN DO. [212]HERE'S A WALL THERE."
2670 IF CM = 6 THEN LC = 4: GOTO 520
2680 IFCM=9THENPRINT"[212]HIS ROOM IS EMPTY (LIKE YOUR HEAD,":PRINT"OBVIOUSLY!)."
2690 IFCM=11THENPRINT"[211][195][207][210][197]:";SC;"[207][213][212] [207][198] 100 [208][207][211][211][201][194][204][197]."
2700 IFCM=2 AND(UD=4ORUD=5)THENPRINT"[212]HE ROOM IS MORTALLY WOUNDED..."
2702 IFCM=2 AND(UD=4ORUD=5)THENPRINT"(SAID SARCASTICALLY)."
2710 IFCM=11THENPRINT"[217][207][213] [200][193][214][197] ";SE;" [208][207][201][206][212][211] [207][213][212] [207][198] 100":PRINT"[208][207][211][211][201][194][204][197]."
2720 IF CM = 8 THEN  PRINT "[201] DIDN'T ASK A QUESTION!!!!!!!!!"
2730 GOTO 2600
2740 PRINT "[217][207][213] [196][201][196] [201][212]!!!":FORT=1TO2000:NEXT
2742 PRINT "[217]OU HAVE SOLVED THE RIDDLE, KILLED THE"
2744 PRINT "DRAGON, AND CAPTURED THE 'WIZARD.' [206]OW"
2746 PRINT "THERE IS ONLY ONE THING LEFT TO DO."
2748 PRINT "[217]OU READ THE INSTRUCTIONS (HMM...THIS "
2750 PRINT "CAME FROM [205]ONTGOMERY [215]ARDS!) AND"
2752 PRINT "TRANSPORT ALL OF THE CREATURES THROUGH"
2754 PRINT "TIME AND SPACE TO THEIR RIGHTFUL TIMES"
2756 PRINT"AND PLACES. [193]ND WHAT HAPPENED TO THE ":PRINT"TIME MACHINE?
2760 [153]"(null)OU DECIDE TO KEEP IT AND USE IT WHEN":[137]40
2770 [153] "(null)OU ARE TOO LATE! (null)HE ODOR HAS GOTTEN"
2772 [153] "TO YOU. (null)OU FEEL FAINT...VERY FAINT..."
2774 [153] "....VERY,VERY FAINT........YOU FAINT."
2780 [153] "(null)HE ODOR ALL BUT KILLS YOU IN YOUR"
2782 [153] "SLEEP. RIGHT$T WOULD HAVE, EXCEPT THAT THE"
2784 [153] "DRAGON ATE YOU. ATNH, BUT YOU GOT YOUR "
2786 [153] "REVENGE!!!": [153] "(null)OU GAVE HIM INDIGESTION."
2788 [129]T[178]1[164]3500:[130]T:[137] 5030
2790 [143] * LOCATION #11
2800 [139] GM [179] 1 [167]  [153] "(null)HIS ROOM HAS A GAS MASK IN THE CORNER."
2810 [139]GM[177]0[167][153]"VALXCEPT FOR YOU AND SOME AIR, THIS ROOM  IS EMPTY."
2820 [153] "(null)HERE'RE EXITS TO THE (null)OUTH, VALAST AND   (null)EST."
2830 [141] 530
2840 [139]GM[178]1[175]CM[178]9[167][153]"(null)OU GOT NOTHING!"
2850 [139]CM[178]9[175]GM[179]1[167]  [153] "CHR$AS MASK TAKEN.":GM[178]1
2860 [139]CM[178]9[175]GM[177]1[167][153]"(null)OU MUST BE HALLUCINATING. (null)R DEAF. (null)R"
2862 [139]CM[178]9[175]GM[177]1[167][153] "BLIND. (null)R STUPID. (null)R ALL FOUR! RIGHT$ SAID"
2864 [139]CM[178]9[175]GM[177]1[167][153] "THAT:": [137] 2810
2870 [139]CM[178]2[175](UD[178]4[176]UD[178]5)[167][153]"(null)HE GROUND IS ALREADY DEAD!"
2880 [139]CM[178]2[175]GM[178]0[167][153]"(null)HE GAS MASK IS DESTROYED!":GM [178] 3
2890 [139]CM[178]6[167]LC[178]7:[137] 520
2900 [139]CM[178]4[167][153]"(null)HO DO YOU THINK YOU ARE, TRYING TO WALK";
2902 [139]CM[178]4[167][153] "STRAIGHT THROUGH WALLS?"
2910 [139] CM [178] 3 [167] LC [178] 6: [137] 520
2920 [139] CM [178] 5 [167] LC [178] 17: [137] 520
2930 [139] CM [178] 7 [167] 2790
2940 [139] CM [178] 11 [167]  [153] "(null)LEN(null)(null)VAL: ";SE;" (null)(null)(null) (null)ASC 100 (null)(null)(null)(null)RIGHT$PEEK(null)VAL."
2950 [137] 2830
2960 [143] * LOCATION #12
2970 [153] "(null)HIS IS A (null)OUTH, VALAST, AND (null)EST":[153] "INTERSECTION."
2980 [153] "(null)HERE IS A SIGN SCRAWLED IN BLOOD ON "
2982 [153] "THE WALL. RIGHT$T'S TOO DARK TO SEE IT."
2990 [141] 530
3000 [139] CM [178] 11 [167]  [153] "(null)LEN(null)(null)VAL: ";SE;" (null)(null)(null) (null)ASC 100 (null)(null)(null)(null)RIGHT$PEEK(null)VAL."
3010 [139]CM[178]2[175]UD[178]6[176]UD[178]8[167][153]"(null)OU CAN NOW SEE THE SIGN. RIGHT$T SAYS:"
3020 [139]CM[178]2[175](UD[178]6[176]UD[178]8)[167][153]"CHR$(null) ATN STR$RIGHT$(null)VALLEN(null)RIGHT$(null)(null),"
3022 [139]CM[178]2[175](UD[178]6[176]UD[178]8)[167][153]"LEFT$(null)(null)STR$ (null)(null) (null)(null) (null)(null)(null)(null) LEFT$ATN(null)(null)RIGHT$VAL(null),"
3024 [139]CM[178]2[175](UD[178]6[176]UD[178]8)[167][153]"ATN(null)STR$ PEEKVAL(null)ATN(null)VAL (null)ASC (null)LEFT$VAL ASC(null)(null)RIGHT$(null)CHR$ ASC(null)ATN(null)(null)RIGHT$VAL(null)."
3030 [139]CM[178]2[175]UD[179][177]6[175]UD[179][177]8[167][153]"(null)O EFFECT AT ALL!!"
3040 [139]CM[178]4[167][153]"(null)OU RUN INTO A MOUTH PROTRUDING FROM"
3042 [139]CM[178]4[167][153] "THE NORTHERN WALL. RIGHT$T BITES YOUR HEAD"
3044 [139]CM[178]4[167][153]"OFF.":[137]5030
3050 [139] CM [178] 5 [167] LC [178] 8: [137] 520
3060 [139] CM [178] 9 [167]  [153] "(null)OTHING TO GET HERE."
3070 [139] CM [178] 3 [167] LC [178] 13: [137] 4610
3080 [139] CM [178] 6 [167] LC [178] 14: [137] 520
3090 [137] 2960
3100 [143] * LOCATION #13
3110 [153] "(null)HIS IS A (null)ORTH, (null)OUTH, AND (null)EST        INTERSECTION."
3120 [153] "(null)HERE IS A CHIRPING SOUND COMING FROM"
3122 [153] "THE WEST, AND A SCRAPING SOUND IS "
3124 [153] "COMING FROM THE SOUTH."
3130 [141] 530
3140 [139]CM[178]6[167]LC[178]15:[137]520
3150 [139]CM[178]3[167]LC[178]16:[137]520
3160 [139]CM[178]4[167]LC[178]12:[137]4610
3170 [139]CM[178]5[167][153]"(null)OU CAN'T GO THROUGH SOLID ROCK!!!!"
3180 [139]CM[178]6[167]LC[178]15:[137]4610
3190 [139]CM[178]11[167][153]"(null)LEN(null)(null)VAL:";SE;"(null)(null)(null) (null)ASC 100 (null)(null)(null)(null)RIGHT$PEEK(null)VAL."
3200 [139]CM[178]2[167][153]"(null)OU HAVE AWAKENED THE MOST TERRIBLE"
3202 [139]CM[178]2[167][153] "CREATURE IN THIS WHOLE DUNGEON-THE"
3204 [139]CM[178]2[167][153] "DREADED FLOOR CREATURE, WHO SITS ON TOP"
3206 [139]CM[178]2[167][153] "OF FLOORS AND WAITS FOR PEOPLE TO WALK"
3208 [139]CM[178]2[167][153] "ON IT. (null)HEN THEY DO, IT EATS THEM. (null)HIS"
3210 [139]CM[178]2[167][153] "PARTICULAR ONE WAS SLEEPING. RIGHT$T IS NOW"
3212 [139]CM[178]2[167][153] "HUNGRY AND MAD. RIGHT$T EATS YOU.":[137] 5030
3220 [139] CM [178] 9 [167]  [153] "(null)OTHING HERE."
3230 [139] CM [178] 7 [167] 3100
3240 [137] 3130
3250 [143] * LOCATION #14
3260 [153] "(null)HIS IS A (null)ORTH, (null)OUTH, AND VALAST": [153] "INTERSECTION."
3270 [153]"(null)HERE IS A SQUEAKING NOISE COMING FROM"
3272 [153] "THE SOUTH, AND A SUCKING NOISE COMING":[153] "FROM THE NORTH."
3280 [141] 530
3290 [139]CM[178]5[167][153] "(null)UNNING..............":LC[178]12:[137]520
3300 [139]CM[178]6[167][153]"(null)HE NORTH AND SOUTH WALLS BOTH ARE ON"
3302 [139]CM[178]6[167][153] "THE WEST WALL, BUT ONE GOES NORTH AND"
3304 [139]CM[178]6[167][153] "THE OTHER GOES SOUTH."
3310 [139]CM[178]6[167]FL[178]FL[170]1:[139]FL[178]3[167][153] "RIGHT$'LL TAKE YOU TO THE NORTH.":LC[178]20
3312 [139]CM[178]6[167]520
3320 [139] CM [178] 4 [167] LC [178] 20: [137] 4610
3330 [139] CM [178] 3 [167] LC [178] 15: [137] 520
3340 [139] CM [178] 9 [167]  [153] "(null)OTHING HERE."
3350 [139] CM [178] 2 [167]  [153] "(null)O EFFECT."
3360 [139] CM [178] 8 [167]  [153] "RIGHT$ STR$RIGHT$STR$(null)'(null) ATN(null)(null) ATN (null)(null)VAL(null)(null)RIGHT$(null)(null)!!"
3370 [139]CM[178]11[167][153]"(null)LEN(null)(null)VAL:";SE;"(null)(null)(null) (null)ASC 100 (null)(null)(null)(null)RIGHT$PEEK(null)VAL."
3380 [137] 3250
3390 [143]  * LOCATION #15
3392 [139]DF[177][178]1[167]3430
3400 [153]"(null)HIS ROOM IS VERY DARK, DAMP, AND COLD."
3402 [153]"(null)HE SCREECHING WAS OBVIOUSLY COMING"
3404 [153]"FROM THIS ROOM, BUT WHERE YOU CANNOT"
3406 [153]"TELL. (null)HERE'S A SIGN SCRAWLED IN BLOOD"
3408 [153]"ON THE EASTERN WALL, BUT YOU CAN'T QUITEREAD IT.":[153]
3410 [153]"(null)AIT A MINUTE. (null)OMETHING MOVED. (null)O, IT"
3412 [153] "WAS JUST A SHADOW. (null)(null)! (null)HERE IT IS"
3414 [153] "AGAIN. (null)HE SCREECHING GROWS HIGHER AND"
3415 [153] "LOUDER. ATN BUNCH OF FLAT CREATURES ARE"
3416 [153] "FLOATING, NO, FLYING THROUGH THE AIR"
3420 [153] "LIKE A MANTA RAY SWIMMING THROUGH THE"
3422 [153] "WATER. (null)HEY ARE OBVIOUSLY THE FLYING"
3424 [153] "FLATSIES. (null)HEY APPEAR TO BE ATTACKING."
3430 [139]DF[177]2[167][153]"(null)HERE ARE A BUNCH OF DEAD FLYING"
3432 [139]DF[177]2[167][153] "FLATSIES ON THE GROUND. (null)OU CAN NOW SEE"
3434 [139]DF[177]2[167][153] "THE SIGN CLEARLY. RIGHT$T SAYS:"
3435 [139]DF[177]2[167][153] "(null)LEFT$VAL ASC(null)ATN(null)(null)RIGHT$VAL(null) STR$RIGHT$VAL,"
3436 [139]DF[177]2[167][153] "ATN(null) (null)LEFT$VAL (null)RIGHT$CHR$LEFT$(null) (null)ASC (null)RIGHT$CHR$LEFT$(null),"
3438 [139]DF[177]2[167][153] "(null)(null) RIGHT$ASC (null)(null)(null)'(null)VAL (null)VALATNSTR$RIGHT$(null)CHR$ (null)LEFT$RIGHT$(null),"
3439 [139]DF[177]2[167][153] "(null)(null)(null) STR$RIGHT$STR$ ATN(null)(null) (null)RIGHT$CHR$LEFT$(null)."
3440 [139]DF[178]1[167][153] "(null)HE FLYING FLATSIES ARE ATTACKING.
3450 IFDF=2THENPRINT"[212]HE FLYING FLATSIES ARE WITHIN STRIKING"
3452 IFDF=2THENPRINT "RANGE AND ARE COMING IN FOR THE KILL."
3460 GOSUB 530
3470 IF DF < 2 AND CM = 3 THEN  PRINT "[199]OOD IDEA!":LC = 13: GOTO 520
3480 IF DF < 2 AND CM = 4 THEN  PRINT "[210]IGHT ON!":LC = 14: GOTO 520
3490 IF DF < 2 AND CM = 5 THEN  PRINT "[207]UCH! [205]Y NOSE! [212]HERE'S A WALL THERE."
3500 IFCM=6ANDDF<2THENPRINT"[217]OU RUN INTO A FLATSIE AND HE BITES YOU"
3502 IFCM=6ANDDF<2THENPRINT "RIGHT IN THE NECK.": GOTO 5030
3510 AF=0:IFCM=2ANDDF=2ANDUD=8THENAF=1
3512 IFAF=1THENPRINT "[212]HE FLYING FLATSIES ARE KILLED BY THE"
3514 IFAF=1THENPRINT "FLICKERING LIGHT. [217]OU CAN CLEARLY READ"
3516 IFAF=1THENPRINT "THE SIGN NOW.":DF = 4: GOTO 3390
3520 AF=0:IFDF<2ANDDF>-1ANDCM=2ANDUD=8THENAF=1
3522 IFAF=1THENPRINT"[212]HE FLATSIES BACK OFF WHEN YOU LIGHT"
3524 IFAF=1THENPRINT "THE TORCH. [212]HEY APPEAR TO BE AFRAID"
3526 IFAF=1THENPRINT "OF LIGHT. [201]T BOUGHT YOU SOME TIME,"
3528 IFAF=1THENPRINT"ANYWAY.":DF=DF-1
3529 IFAF=1THENIFDF=-2THENPRINT"[217]OU USED IT TOO MUCH. [212]HE FLATSIES"
3530 IFDF=-2THENPRINT"GET USED TO THE LIGHT AND ARE GOING IN"
3532 IFDF=-2THENPRINT "FOR THE KILL.":DF=1
3540 IFDF=9THENPRINT"[217]OU GET A FLATSIE BUT HE KILLS YOU WITH"
3542 IFDF=9THENPRINT "HIS POISONOUS SKIN.":GOTO 5030
3550 IFCM=2ANDDF>2THENPRINT"[217]OU HAVE KILLED A DEAD FLATSIE! [217]OU"
3552 IFCM=2ANDDF>2THENPRINT "SHOULD BE PROUD!"
3560 IFDF<=2ANDCM=2ANDUD=6THENPRINT"[217]OU KILLED THEM!":DF=3
3570 IFCM=11THENPRINT"[211][195][207][210][197]:";SE;"[207][213][212] [207][198] 100 [208][207][211][211][201][194][204][197]."
3580 IFDF<2ANDCM=2ANDUD<>6ANDUD<>8THEN  PRINT"[206]O EFFECT."
3590 IFCM<7ANDCM>1ANDDF=2THENPRINT"[217]OU START TO RUN, BUT IT'S TOO LATE."
3600 IFDF=2THENPRINT"[212]HEY ALL ATTACK AT ONCE.":GOTO5030
3610 IFCM=4ANDDF>2THENPRINT"[207]KAY!":LC=14:GOTO520
3620 IFCM=3THENPRINT"[193]ND AWAY WE GO!":LC=13:GOTO520
3630 IFCM=5ORCM=6ANDDF>2THENPRINT"[212]HERE'S A WALL THERE!!"
3640 DF = DF + 1: GOTO 3390
3650 IF CM = 7 THEN 3390
3660 GOTO 3390
3670 REM * LOCATION #16
3680 IFAL<1THENPRINT"[212]HIS ROOM HAS A LARGE PIT OF VERY LOOSE"
3682 IFAL<1THENPRINT"DIRT IN IT. [193]T THE BOTTOM YOU SEE THE"
3684 IFAL<1THENPRINT "MOUTH OF SOME HUGE CREATURE WAITING"
3686 IFAL<1THENPRINT "FOR SOMETHING TO FALL INTO THE PIT."
3688 IFAL<1THENPRINT "[217]OU ARE STANDING ON THE EDGE OF THE PIT"
3690 IFAL<1THENPRINT"AND THE CREATURE IS THROWING DIRT AT"
3692 IFAL<1THENPRINT "YOU TO MAKE YOU FALL. [201]T HAS WORKED AND"
3694 IFAL<1THENPRINT "YOU ARE SLIPPING DIRECTLY TOWARD HIM."
3696 IFAL<1THENPRINT "[201]F HE'S STILL ALIVE WHEN YOU HIT THE"
3698 IFAL<1THENPRINT "BOTTOM, YOU'RE AS GOOD AS DEAD!"
3700 IFAL>0THENPRINT"[212]HE CREATURE IS DEAD. [215]ITH HIS LAST"
3702 IFAL>0THENPRINT "STRUGGLE, HE HAS THROWN YOU AND ABOUT"
3704 IFAL>0THENPRINT"A TON OF DIRT OUT OF THE PIT WHERE YOU":PRINT"NOW STAND."
3710 PRINT"[212]HERE IS AN EXIT TO THE NORTH."
3720 GOSUB 530
3730 IFAL<1ANDCM<>2THENPRINT"[217]OU FALL STRAIGHT INTO HIS JAWS.":GOTO 5030
3740 IFAL<1ANDUD<>5THENPRINT"[217]OU FALL STRAIGHT INTO HIS JAWS.":GOTO 5030
3750 AF=0:IFAL<1ANDCM=2ANDUD=5THENAF=1
3752 IFAF=1THENPRINT "[212]HE LASER BEAM HIT HIM BEFORE YOU DID."
3754 IFAF=1THENPRINT "[215]ITH HIS LAST THRASHING STRUGGLE, HE"
3756 IFAF=1THENPRINT "THROWS YOU AND ABOUT A TON OF DIRT"
3758 IFAF=1THENPRINT "ONTO THE TOP OF THE PIT.":AL=1:GOTO3710
3760 IFCM=11THENPRINT"[211][195][207][210][197]:";SE;"[207][213][212] [207][198] 100 [208][207][211][211][201][194][204][197]."
3770 IF CM = 4 THEN LC = 13: GOTO 4610
3780 IF CM = 5 THEN  PRINT "[207][213][195][200]! [212]HERE'S A WALL THERE!"
3790 IFCM=3THENPRINT"[217]OU FELL DOWN THE PIT AND BROKE YOUR":PRINT"NECK."
3792 IFCM=3THEN5030
3800 IFCM=6THENPRINT"[212]HERE'S THIS NEW INVENTION CALLED A"
3802 IFCM=6THENPRINT "WALL. [217]OU CAN'T GO THROUGH. [211]INCE"
3804 IFCM=6THENPRINT"THEY'RE SO MODERN HERE, THEY HAVE SOME."
3806 IFCM=6THENPRINT"[217]OU JUST RAN INTO ONE."
3810 IFCM=2THENPRINT"[206]O EFFECT."
3820 IFCM=9THENPRINT"[217]OU DON'T WANT TO CARRY [212][200][193][212] THING"
3822 IFCM=9THENPRINT"AROUND WITH YOU!"
3830 IFCM=7THEN3670
3840 GOTO 3670
3850 REM * LOCATION #17
3860 IFCK<1THENPRINT"[212]HIS ROOM IS EMPTY EXCEPT FOR YOU, AIR,"
3862 IFCK<1THENPRINT"AND A CORK."
3870 IFCK>0THENPRINT"[212]HIS ROOM IS EMPTY EXCEPT FOR YOU AND":PRINT"SOME AIR."
3880 PRINT"[212]HERE ARE EXITS TO THE NORTH AND SOUTH."
3890 GOSUB 530
3900 IFCM=2THENPRINT"[206]O EFFECT."
3910 IFCM=9ANDCK>0THENPRINT"[206]OTHIN HERE, DUDE!"
3920 IFCM=9ANDCK<1THENPRINT"[199][207][212][195][200][193] [195][207][210][203]!":CK = 1
3930 IFCM=11THENPRINT"[211][195][207][210][197]:";SE;"[207][213][212] [207][198] 100 [208][207][211][211][201][194][204][197]."
3950 IFCM=7THEN3850
3960 IFCM=3THENLC=18:GOTO520
3970 IFCM=4THENLC=11:GOTO520
3980 IFCM=5ORCM=6THENPRINT"[212]HERE'S A WALL THERE!"
3990 GOTO 3890
4000 REM  * LOCATION # 20
4010 IFSD<1THENPRINT"[212]HERE IS A SLIME CREATURE GUARDING A"
4012 IFSD<1THENPRINT"LASER GUN. [200]E IS ADVANCING QUICKLY."
4020 IFSD>0THENPRINT"[212]HERE IS A DEAD SLIME CREATURE HERE."
4022 IFSD>0THENIFSC<1THENPRINT "[212]HERE IS A LASER GUN HERE."
4030 IFSC>0THENPRINT"[212]HIS ROOM IS EMPTY."
4040 GOSUB 530
4050 IFSD<1ANDCM=2THEN4080
4060 IFSD<1THENPRINT "[217]OU WERE SLIMED!!!!!":GOTO5030
4070 IFSD>0THEN4100
4080 IFUD<>4THENPRINT"[217]OU WERE SLIMED!! [215]HO DO YOU THINK YOU"
4082 IFUD<>4THENPRINT"ARE? [193] '[199]HOSTBUSTER'?":GOTO5030
4090 PRINT"[217]OU SLICED HIS HEAD OFF!":SD=1:SE=SE+10
4100 PRINT 
4110 IFCM=9ANDSC>0THENGOTO4010
4120 IFCM=7ANDSC>0THENPRINT"[212]HIS ROOM IS EMPTY."
4122 IFCM=7ANDSC>0THENPRINT"[212]HERE IS AN EXIT TO THE EAST."
4130 IFCM=9ANDSC<1THENPRINT"[204]ASER GUN TAKEN.":SC=1
4140 IFCM=5THENLC=14:GOTO4610
4150 IFSD=2ANDCM>1THENPRINT"[206]O EFFECT.":SD=2
4160 IFCM=3THENPRINT"[212]HERE'S A WALL THERE."
4170 IFCM=6ORCM=4THENPRINT"[212]HERE'S A WALL THERE! [212]HERE [201][211] AN EXIT"
4172 IFCM=6ORCM=4THENPRINT "TO THE EAST, THOUGH."
4180 GOTO 4000
4190 REM * LOCATION #18
4200 PRINT "[212]HIS IS A [206]ORTH, [211]OUTH, AND [215]EST":PRINT"INTERSECTION."
4210 GOSUB 530
4220 IFCM=4THENLC=17:GOTO4610
4230 IFCM=2THENPRINT "[217]OU CANNOT HURT THE ROOM."
4240 IFCM=6THENLC=6:GOTO520
4250 IFCM=3THENLC=19:GOTO520
4260 IFCM=6ORCM=3ORCM=5THENPRINT"[217]OU CAN'T GO THAT WAY."
4270 IFCM=9THENPRINT"[206]OTHING HERE. [199]ETTING THAT 'EMPTY'":PRINT"FEELING?"
4280 IFCM=7THEN4190
4290 IFCM=8THENPRINT"[201] DIDN'T ASK YOU FOR YOUR OPINION!"
4300 GOTO 4190
4310 REM  * LOCATION # 6
4320 PRINT"[212]HERE IS A LARGE LIZARD CREATURE HERE."
4330 IFSL<1THENPRINT"[200]E IS MOTIONING TOWARDS YOUR FLASHLIGHT"
4332 IFSL<1THENPRINT "DESPERATELY."
4340 PRINT"[212]HERE ARE EXITS TO THE [197]AST, [215]EST, AND  [206]ORTH"
4350 GOSUB 530
4360 IF CM = 5 THEN LC = 18: GOTO 520
4370 IF CM = 4 THEN LC = 11: GOTO 520
4380 IFCM=3THENPRINT"[212]HIS IS NOT THE SONG '[194]ANG [217]OUR [200]EAD'!"
4382 IFCM=3THENPRINT"[212]HERE'S A WALL THERE!"
4390 IFCM=6THENLC=10:GOTO4610
4400 IFCM=9THENPRINT"[212]HE LIZARD DOES NOT WANT YOU TO TAKE"
4402 IFCM=9THENPRINT "HIM ALONG. [201]N FACT, HE HATES THE IDEA"
4404 IFCM=9THENPRINT "SO MUCH THAT HE KILLS YOU!!":GOTO5030
4410 IFCM=2ANDSL=1THENPRINT"[200]E REACHES HIS CLAW TOWARDS YOU AS IF"
4412 IFCM=2ANDSL=1THENPRINT"EXPECTING HOSTILE ACTION. [193]S OF NOW,":GOTO 5030
4420 IFCM=2ANDUD=6ANDSL=0THENPRINT"[200]E SCRAWLS 'THANK YOU' IN THE DIRT"
4422 IFCM=2ANDUD=6ANDSL=0THENPRINT"THEN GIVES YOU A TORCH AND A PIECE OF"
4426 IFCM=2ANDUD=6ANDSL=0THENPRINT"PAPER.":TH=1:PP=1:SL=1:HO=2
4430 IFCM=11THENPRINT"[211][195][207][210][197]:";SE;"[207][213][212] [207][198] 100 [208][207][211][211][201][194][204][197]."
4440 GOTO 4310
4450 REM  LOCATION # 21
4460 PRINT 
4470 GOTO 4460
4480 T = 0
4490 IFUD=1ANDPS<>1THENT=1
4500 IFUD=2ANDRI<>1THENT=1
4510 IFUD=3ANDGA<>1THENT=1
4520 IFUD=4ANDMS<>1THENT=1
4530 IFUD=5ANDSC<>1THENT=1
4540 IFUD=6ANDHO<>1THENT=1
4550 IFUD=7ANDPP<>1THENT=1
4560 IFUD=8ANDTH<>1THENT=1
4570 IFUD=9ANDCK<>1THENT=1
4580 IFUD=10ANDDB<>1THENT=1
4590 IFT=1THENPRINT"[217]OU DO NOT HAVE THAT ITEM.":GOTO 530
4600 GOTO 840
4610 IFLC=1THEN1020
4620 IFLC=2THEN1200
4630 IFLC=3THEN1370
4640 IFLC=4THEN1530
4650 IFLC=5THEN1650
4660 IFLC=6THEN4310
4670 IFLC=7THEN1860
4680 IFLC=8THEN2020
4690 IFLC=9THEN2350
4700 IFLC=10THEN2600
4710 IFLC=11THEN2790
4720 IFLC=12THEN2960
4730 IFLC=13THEN3100
4740 IFLC=14THEN3250
4750 IFLC=15THEN3390
4760 IFLC=16THEN3670
4770 IFLC=17THEN3850
4780 IFLC=18THEN4190
4790 IFLC=19THEN2180
4800 IFLC=20THEN4000
4810 REM * INVERNTORY
4820 PRINT"[201]NVENTORY:"
4830 IFMS=1THENPRINT"[211]WORD"
4840 IFHO=1THENPRINT"[198]LASHLIGHT"
4850 IFRI=1THENPRINT"[205]OUTHWASH"
4860 IFCK=1THENPRINT"[195]ORK"
4870 IFSC=1THENPRINT"[204]ASER GUN"
4880 IFDB=1THENPRINT"[207]NE BOTTLE OF '[197]SSENCE'D DRAGON BREATH'"
4890 IFPS=1THENPRINT"[194]REATH FRESHENER"
4900 IFPP=1THENPRINT"[208]IECE OF PAPER"
4910 IFTH=1THENPRINT"[212]ORCH"
4920 IFGM=1THENPRINT"[199]AS MASK"
4930 RETURN
4940 REM * COMMANDS
4950 SU = 0
4960 PRINT "[195]OMMANDS:"
4970 PRINT:PRINT"[211]OUTH ([211])","[197]AST ([197])"
4980 PRINT"[206]ORTH ([206])","[215]EST ([215])"
4990 PRINT"[213]SE      ","[199]ET"
5000 PRINT"[204]OOK     ","[201]NVENTORY ([201])"
5005 PRINT"[205]USIC","[211]ILENCE"
5010 PRINT"[209]UIT     ","[211]CORE"
5020 GOTO 530
5030 PRINT:PRINT"[217]OU ARE DEAD."
5035 R$=""
5040 PRINT:INPUT"[193]NOTHER GO";R$
5050 IFLEFT$(R$,1)="N"THEN5400
5055 IFLEFT$(R$,1)<>"Y"THEN5040
5060 CLR:GOTO500
5070 REM
5080 END 
5090 GOTO 5030
5100 INPUT"[210]AISE WHAT";U$
5102 IFU$="ARMS"ORU$="HANDS"THENPRINT"[212]HE ODOR KILLED YOU!!":GOTO5090
5110 GOTO710
5120 PRINT "[147]   [212]O SEE THE COMMANDS WHILE YOU ARE"
5121 PRINT"          PLAYING, TYPE '[195][207][205]'."
5122 PRINT"  [198]OR ANY ACTION, SUCH AS THROW, WEAR,"
5123 PRINT"    READ, IGNITE, DRINK, GIVE, ETC.,"
5124 PRINT"      JUST USE THE 'USE' COMMAND."
5129 PRINT"  [212]HE REST IS MOSTLY SELF-EXPLANATORY."
5130 FORT=1TO1000:NEXT:PRINT:PRINT:PRINT "         [208]RESS A KEY TO PLAY."
5132 POKE198,0:WAIT198,1:GETA$:PRINT"[147]":GOTO1020
5140 REM
5210 PRINT"[158][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
5212 PRINT"[166][217]OU HAVE SEEN THE CLUES,[166]"
5214 PRINT"[166][193] CHICKEN'S A BIRD,     [166]"
5216 PRINT"[166][212]YPE [193][206][211][215][197][210], AND GIVE ME[166]"
5218 PRINT"[166]THE PASSWORD!           [166]"
5220 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
5222 INPUT"[197]NTER YOUR GUESS";GS$
5230 IFGS$="DRAGON BREATH"ORGS$="DRAGON BREATHE"ORGS$="DRAGONS BREATH"THEN5260
5240 PRINT"[217]OU CLOSE YOUR EYES AND DIVE INTO THE"
5242 PRINT"CORNER. [193]FTER A COUPLE OF SECONDS, YOU"
5244 PRINT"LOOK UP. [206]OTHING APPEARS ANY DIFFERENT,"
5246 PRINT"BUT HERE THAT DOESN'T MEAN MUCH."
5250 GOTO 1650
5260 PRINT"[147]  [211]UDDENLY, A PIERCING WAIL FILLS THE"
5262 PRINT"AIR. [212]HE WALL SMOKES, STARTS TO MELT,"
5264 PRINT"AND, AS YOU DIVE FOR COVER, EXPLODES."
5266 PRINT"[217]OU MUST HAVE GOTTEN THE PASSWORD!"
5268 PRINT"   !!!! [208]ROCEED, VALIANT WARRIOR !!!!":POKE198,0:WAIT198,1:GETZ$
5270 CW=1:SX=SX+1
5280 IFSX<2THENSE=SE+20
5290 GOTO1650
5300 PRINT"[210]AISE THE SCOPE,": PRINT "DON'T GIVE 'EM A CENT,"
5302 PRINT "[215]E'RE GOING TO GET,": PRINT "SOME [204]ISTERMINT.":PRINT:PRINT
5304 PRINT"[212]HAT'S ALL THERE IS TO THE PAPER."
5306 GOTO 530
5310 END 
5320 PRINT:PRINT"[217]OU SURE YOU WANT TO QUIT? <[217]/[206]>":POKE198,0:WAIT198,1:GETZ$
5330 IFZ$<>"Y"THENRETURN
5340 GOTO 5040
5350 IFD(1)<1THENPRINT"[193] LITTLE DWARF RUNS UP TO YOU."
5352 IFD(1)<1THENPRINTQ$;"[201] DON'T HAVE VERY MUCH TIME,";Q$;"HE SAYS,"
5360 PRINTQ$;"[194]UT WHAT [201] HAVE TO SAY IS VERY"
5362 PRINT"IMPORTANT. [217]OU MUST FIND A CERTAIN "
5364 PRINT "PASSWORD. [212]HE WIZARD OF TIME HAS"
5366 PRINT "KIDNAPPED BEINGS FROM ALL TIMES. [212]O"
5368 PRINT "STOP HIM, YOU MUST GET BEYOND A CLEAR"
5369 PRINT "WALL BY SUPPLYING THIS PASSWORD. [207]NLY"
5370 PRINT "ONE PERSON HAS EVER SUCCEEDED, BUT HE"
5372 PRINT "WAS KILLED BY THE BAD-BREATHED DRAGON"
5374 PRINT "AND THE WALL WAS REBUILT. [200]E [196][201][196] MANAGE"
5376 PRINT "TO GIVE A CLUE TO THE LIZARD CREATURE"
5378 PRINT "BUT NO ONE HAS EVER BEEN ABLE TO FIGURE"
5380 PRINT"OUT WHAT IT MEANS. [208]LEASE FREE ALL OF"
5382 PRINT "THE BEINGS HE HAS KIDNAPPED.";Q$
5384 PRINT "[200]E WINKS AT YOU.";Q$;"[201] OUGHTA GET AN"
5386 PRINT "[207]SCAR FOR THIS!";Q$;" HE SAYS."
5388 PRINT "[200]E THEN DIES AND DISAPPEARS IN A PUFF"
5390 PRINT "OF SMOKE.": RETURN 
5400 MU=0:GOSUB11000:LOAD"HELLO CONNECT",8:END
6000 REM
10000 REM TURN MUSIC ON
10010 IFPEEK(788)=49ANDMU=1THENPOKE251,0:POKE252,160:SYS49152
10020 RETURN
10030 REM
11000 REM TURN MUSIC OFF
11010 SYS49155
11020 RETURN